(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     27714,        678]
NotebookOptionsPosition[     22706,        586]
NotebookOutlinePosition[     23062,        602]
CellTagsIndexPosition[     23019,        599]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  StyleBox["RLC\:4e32\:8054\:8c10\:632f\:7535\:8def\:5b9e\:9a8c\:62a5\:544a", 
   "Title"], 
  StyleBox["\n", "Title"], 
  StyleBox["\n", "Title"], "\t ", "\n"}]], "Input",
 CellChangeTimes->{{3.7811711890916524`*^9, 3.781171212166266*^9}, {
   3.7811712465122986`*^9, 3.7811712855493355`*^9}, {3.781171318689533*^9, 
   3.7811713729320693`*^9}, {3.7811714151998425`*^9, 3.781171449495164*^9}, {
   3.78117156171767*^9, 3.7811715624058285`*^9}, 
   3.781171659663907*^9},ExpressionUUID->"2291c754-f9d8-4946-bbd8-\
82255b570f54"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{"2", "Pi", "*", "\[Omega]"}]}]], "Input",
 CellChangeTimes->{{3.781171726402767*^9, 3.781171738546374*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"02c1219b-d7b5-4559-9d04-e3de0357ab3f"],

Cell[BoxData[
 RowBox[{"2", " ", "\[Pi]", " ", "\[Omega]"}]], "Output",
 CellChangeTimes->{3.7811717418684845`*^9, 3.781224908155598*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"bbcce4e5-5177-4535-bd84-c3030fa538f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", 
  RowBox[{"HoldForm", "[", 
   RowBox[{"\[CapitalIota]", "=", 
    RowBox[{
     RowBox[{"U", "/", "Z"}], "=", 
     RowBox[{"U", "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{"R", "^", "2"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Omega]", "*", "L"}], "-", 
           RowBox[{"1", "/", 
            RowBox[{"(", 
             RowBox[{"\[Omega]", "*", "C"}], ")"}]}]}], ")"}], "^", "2"}]}], 
       "]"}]}]}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.781172277875235*^9, 3.781172293324836*^9}, 
   3.78121801003378*^9, {3.7812180644471684`*^9, 3.7812181843716125`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"38ad87e6-108b-4931-919a-b1ad8ad96889"],

Cell["\<\
I=\\frac{U}{Z}=\\frac{U}{\\sqrt{R^2+\\left(\\omega  L-\\frac{1}{\\omega  \
C}\\right)^2}}\
\>", "Output",
 CellChangeTimes->{{3.781218171385538*^9, 3.781218187903761*^9}},
 CellLabel->
  "Out[3]//TeXForm=",ExpressionUUID->"a02d0e7b-aa13-482b-a910-96fd94ab3a29"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", 
  RowBox[{"HoldForm", "[", 
   RowBox[{"\[CapitalIota]", "-", "f"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7812182848364725`*^9, 3.781218319578925*^9}, {
  3.781219455761862*^9, 3.781219466486456*^9}, {3.7812195297656436`*^9, 
  3.7812195549073563`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"2bbd0791-3c83-47b5-9d60-a4544cff01a2"],

Cell["I-f", "Output",
 CellChangeTimes->{
  3.781219470758995*^9, {3.78121954026355*^9, 3.7812195564242973`*^9}},
 CellLabel->
  "Out[7]//TeXForm=",ExpressionUUID->"06e3c865-e0d9-4342-ac23-a9b90047cb36"]
}, Open  ]],

Cell["I=\\frac{U}{Z}=1\t", "Input",
 CellChangeTimes->{{3.7812183939672904`*^9, 3.7812184030280695`*^9}, 
   3.781224397876898*^9},ExpressionUUID->"f898b4ba-33a1-4844-af3d-\
3c98f3161bef"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Omega]", "=", 
  RowBox[{"f", "/", 
   RowBox[{"(", 
    RowBox[{"2", "Pi"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.7812195889930277`*^9, 3.781219597389001*^9}, {
  3.781220334204832*^9, 3.7812203820027313`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"ac300783-5d1e-4fb7-91b7-b8d3336200af"],

Cell[BoxData[
 TemplateBox[{
  "$RecursionLimit","reclim2",
   "\"Recursion depth of \\!\\(\\*RowBox[{\\\"1024\\\"}]\\) exceeded during \
evaluation of \\!\\(\\*SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]\\).\"",2,12,8,
   27747119797025961043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7812253597046833`*^9},
 CellLabel->
  "During evaluation of \
In[12]:=",ExpressionUUID->"36c22c29-c04b-4f1d-a79f-1d78dd3d578d"],

Cell[BoxData[
 RowBox[{"Hold", "[", 
  RowBox[{"\[Omega]", "=", 
   FractionBox["f", 
    RowBox[{"2", " ", "\[Pi]"}]]}], "]"}]], "Output",
 CellChangeTimes->{3.781225359710683*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"be08ed66-32ff-4a6d-ac76-1178ccc7c726"]
}, Open  ]],

Cell[BoxData["\[Omega]"], "Input",
 CellChangeTimes->{{3.781224322203524*^9, 3.7812243226263466`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"7f17d635-79df-475d-9fa3-54dcdb0bdb89"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Unprotect", "[", "\[Omega]", "]"}]], "Input",
 CellChangeTimes->{{3.781224329595434*^9, 3.781224339579294*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"1644e463-0db4-4645-a1c8-6726854d0769"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{
  3.781219599983059*^9, {3.7812203430476437`*^9, 3.781220383032934*^9}, 
   3.7812242810646152`*^9, {3.78122432371144*^9, 3.781224340016125*^9}},
 CellLabel->"Out[22]=",ExpressionUUID->"dd4e838a-1f3e-4b06-b980-9ab07ad7528f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[Omega]"], "Input",
 CellChangeTimes->{{3.781224346140297*^9, 3.7812243500308857`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"fd37f27b-1bf0-409d-b2dd-39293f2c04af"],

Cell[BoxData[
 TemplateBox[{
  "$RecursionLimit","reclim2",
   "\"\:5728 \\!\\(\\*SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]\\) \
\:8ba1\:7b97\:8fc7\:7a0b\:4e2d\:8d85\:8fc7 \\!\\(\\*RowBox[{\\\"1024\\\"}]\\) \
\:7684\:9012\:5f52\:6df1\:5ea6.\"",2,23,34,27746767600226438332,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7812243515488214`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[23]:=",ExpressionUUID->"4474253f-bc12-4693-ba1e-\
1a0882fc3301"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[Omega]"], "Input",
 CellChangeTimes->{{3.7812244802496023`*^9, 3.781224480605685*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"9c141f6c-c3b8-492a-a6e5-6999bc4bcb56"],

Cell[BoxData["\[Omega]"], "Output",
 CellChangeTimes->{3.7812244816029797`*^9, 3.7812249006578083`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"b9de0289-341a-47f0-a9b0-c9464bf7818a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "\[Omega]", "]"}]], "Input",
 CellChangeTimes->{{3.781224486732253*^9, 3.7812244918336334`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"c07a5ea9-25d5-463d-b86a-13210abe812b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"w", "=", 
  RowBox[{"f", "/", 
   RowBox[{"(", 
    RowBox[{"2", "*", "Pi"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.781224497855484*^9, 3.781224514859169*^9}, {
  3.781225152848346*^9, 3.781225171791649*^9}, {3.7812252264802856`*^9, 
  3.781225249806856*^9}},ExpressionUUID->"d819a932-3cd6-4436-bfab-\
9510af0418f5"],

Cell[BoxData[
 TemplateBox[{
  "$RecursionLimit","reclim2",
   "\"Recursion depth of \\!\\(\\*RowBox[{\\\"1024\\\"}]\\) exceeded during \
evaluation of \\!\\(\\*SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]\\).\"",2,11,7,
   27747119797025961043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7812245162693996`*^9, 3.7812249152835584`*^9, {3.781225156609311*^9, 
   3.7812251726473603`*^9}, 3.781225228065043*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"96b4fb0a-db65-47d8-bd82-7a720ba76ced"],

Cell[BoxData[
 RowBox[{"Hold", "[", 
  RowBox[{"w", "=", 
   FractionBox["f", 
    RowBox[{"2", " ", "\[Pi]"}]]}], "]"}]], "Output",
 CellChangeTimes->{
  3.781224516277374*^9, 3.7812249153154364`*^9, {3.7812251566561556`*^9, 
   3.781225172673289*^9}, 3.781225228094963*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"c62c94b7-5afb-47d5-ad28-6958bfdc7319"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hold", "[", 
  RowBox[{
   SuperscriptBox["\[Pi]", "2"], " ", "\[Omega]"}], "]"}]], "Input",
 CellChangeTimes->{3.78122441020982*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"425d274b-b8b4-4a7b-96c0-4d896cc76483"],

Cell[BoxData[
 RowBox[{"Hold", "[", 
  RowBox[{
   SuperscriptBox["\[Pi]", "2"], " ", "\[Omega]"}], "]"}]], "Output",
 CellChangeTimes->{3.781224410279569*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"94352f58-5f61-41f8-85a6-2ae08058c466"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Unprotect", "[", "C", "]"}]], "Input",
 CellChangeTimes->{{3.7812251910590825`*^9, 3.7812251971757135`*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"20dd2969-f0b8-4d74-abbf-2820a118a800"],

Cell[BoxData[
 RowBox[{"{", "\<\"C\"\>", "}"}]], "Output",
 CellChangeTimes->{3.7812251977212515`*^9, 3.781241692887622*^9},
 CellLabel->
  "Out[115]=",ExpressionUUID->"75fa7e85-3a66-40b3-a04f-2d174cab8587"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"U", "=", "1"}], ";", 
  RowBox[{"R", "=", "100"}], ";", 
  RowBox[{"C", "=", 
   RowBox[{"0.047", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "6"}]}]}]}], ";", 
  RowBox[{"L", "=", "0.1"}]}]], "Input",
 CellChangeTimes->{{3.781219754611518*^9, 3.781219756025733*^9}, {
   3.781219884853983*^9, 3.7812199393167334`*^9}, 3.781219985418516*^9, {
   3.7812202836854935`*^9, 3.7812202935141883`*^9}},
 CellLabel->
  "In[116]:=",ExpressionUUID->"59aa306a-6cc2-4613-a53f-d4c7f1ad0b83"],

Cell[BoxData["0.1`"], "Output",
 CellChangeTimes->{
  3.7812197575087633`*^9, 3.7812199883267174`*^9, {3.7812202770492535`*^9, 
   3.7812202980949297`*^9}, {3.7812251860365252`*^9, 3.781225200832926*^9}, {
   3.7812416896692343`*^9, 3.781241695082979*^9}},
 CellLabel->
  "Out[116]=",ExpressionUUID->"3fba465a-dc9e-416a-9a9f-ad2f9f4181ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"U", "/", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"R", "^", "2"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Omega]", " ", "L"}], "-", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"\[Omega]", " ", "C"}], ")"}]}]}], ")"}], "^", "2"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.781219608718712*^9, 3.78121965225966*^9}, {
  3.781219695914304*^9, 3.7812196964000044`*^9}},
 CellLabel->
  "In[117]:=",ExpressionUUID->"2a6deb15-2e34-4c54-8691-bd1d0d8ba502"],

Cell[BoxData[
 FractionBox["1", 
  SqrtBox[
   RowBox[{"10000", "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["3.3862753849339434`*^6", "f"]}], "+", 
       RowBox[{"0.6283185307179586`", " ", "f"}]}], ")"}], "2"]}]]]], "Output",
 CellChangeTimes->{3.7812196626628513`*^9, 3.781219697389929*^9, 
  3.7812252041670027`*^9, 3.7812256737029953`*^9, 3.7812257206533365`*^9, 
  3.7812416990981917`*^9},
 CellLabel->
  "Out[117]=",ExpressionUUID->"c14ffe79-4a56-47ae-86af-c34480e5d5ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"A", ",", 
   RowBox[{"{", 
    RowBox[{"f", ",", "1600", ",", "3000"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7812196817123137`*^9, 3.7812197024962645`*^9}, {
  3.7812197353051867`*^9, 3.7812197470756865`*^9}, {3.781220304464882*^9, 
  3.781220310434905*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"1ea3ff0d-571f-4042-aebc-f249e952cb38"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlXk8VO8Xx5WtjcpOhbJWlKUoLeco37Imy9haiLFPjF2WLDMisrQnMnPv
DCplS6WiEJWSpMUakqJSSQoRv/v7677er/vcc87nc8557kr3QFvPuQICAhvm
CAj8/+njGSsqIJCNdeeKKpxcrQAqxm/enpONvY9rDSfpViAjGEwPFMzG8z+P
u+T4WcFDrldtj0g28i2VEgfCrECx2zq6Wiwbj+wXCEg9YQWvbVf9iFqWjeZe
Sq5qd60A8fHb3wbZeEA/ZDRXZg/ILlta8PVwNr7qfV5z//UeqBuL3yTzMRtH
11rHmv23F9qes7T22V/EGaf2FVtVbED3QPKBoNqL+GezylTiYltIXuKd+Mgw
Byfl1rhVaNjBrocd8wwKcvBygqHY2C57mHNRkzWwIhc7e6qy2vNoMFcj0oh+
Ohc15f3l58k6AuOGi92MwCW0ErB/E5fnBK0e8m5tEZewwXl3Ska0C5CS/s1P
P11C80DDXV9D9sPtI9VHMu3y8FuU7jy5/IPwRHBY7nRjHuoPiJ2/UOoGO9Ov
y5cZclDuht5xOS13mBCMT8/YzMHd15Sj5+m7Q3GU7RzGFg6G5Fis+LfZHRR8
xofUgYMicp/YY7vdYXSHcWXuLg46hTjRl9PdgTvx2iGFxkFpffOT9pfcYcZj
+rRrCAfNS0Xsj0t6wB0jC3HxEg5eSzOS11lCB9OKpY/7Szl4PeLFsJUcHd5q
t8fdLufgp6CDZ4OU6TCm7PnT7RYHFwjeiX2qQwcd0bjXN6o5+GO+meNDGzpc
flV+0bmJgxXe4pffnqHDOYaCRv5nDraGjtuUKXmC0YsxJUUJLq5+GZVRa+YF
AnrLyiYoHps+KPDe1gsenTHe8UqSi7cns6RE93uBnUsGPUWai4sZceAd4AWM
jxpXRuW4WLrpo3vkaS/Im3LRe6zExSDxXrmBHi8Q1Kw1YWpzUYV5dloq2hua
4tN960y5qPvIeCrnqQ905uRElphxUXXk55nMtz4wdOtKcq45F4W6At3T+31A
+FtDfrglFzuiPjQW/vWB7c4z79fs5WLE039qzmt9oVQ30OW0Ixetn1StvpPh
C2f691rQvbi49LXp9NMDfrDfREpbhM3FwNXVMweUGeCb9JH5geJRKb8Ay3UM
CH90q6ImiYsLY4L/7NrKgCxT563RyVR+ocXH3ZwYUG+ZZzGSykX/PhlrjZMM
0KZp+nWe5KJWmCBtifBhmPHcWljM4eKU/w2Dqj+HYWGh2Nc0LhclrpvMsxAJ
ALmhnnW+BFXvc72Pg9IBoOeXcEuFx8Uf1WuFLTcGUB4+arhQwMWPYuX3H4QG
QEv43oHE61zM4rAY9D8BQCTTVzre4+L9vCVSJ+cy4U/8ig+7qrg4wXDIEF7E
BMuot3yDai5GZomQLGnqPcNUU+YBF++UnHiSq8kEc1ut9W/quHihY1eUiTUT
RpePbbV7ykX9DJUvoXlM2FHOcrLuoPq7bI3bHZMgOF+0VQE6Kb//3ZuIsg6C
Yf7vrnVdXDSav/nDbpcgOHfe21X8HRf3TGZ/FmQGwZcYC6/nfVxUFNl5SCQ3
CE7vlgy1GOKi+PHUgzv+BMFAN5m5e5yLxekLRIUrgqGg7c0vvQku1t4KPC9d
EwzerfOcFCe52BshPqXXFAxfHgco//5LfS/bEX1mIBhGyo3KyBkuztruUxuT
DoF/Ka2t/4QJ3JY4arYhOgRkNs6VqZAi0GD7hv/W7g2F9vUbozjSBEqLLfz8
+0AoZK/x6UmVIVDM1oD5wj8Ulis3FxySI7C7/pl/SXIoqCy8aLh4OYElq/2+
q9aEgs57XWc/FQJjrXQax/TDwCz9UK6yHoGXV2XY5GiEw4Jix43TFPeKNI3Y
GoTD02ar5jZ9Artw1Ez+v3AwX2IkkLmRQDvjAZdW93CwPC1B/7eJQEdrB9Px
vHDYm/1wbScQGKnCipZRiACHfLV7p60IHPqhrj+2LBI8qj93iPgS+MDcLKzR
OgoY5x6PjFEspmyzQJQeBaGB+aIf/Agsrpy84BgZBeyVhzY+YBC4+FdEgi4R
BQVJ7VkRTAITylXoj39FwWerx7uHIgis9mRxAnOjIbCHf7PxGIFXz227vXwq
BqJnXU+e4BO440h+0ouBOEicEXjnl0/gyDofxw1TcZD6j9A0KyAwM00m9MW8
eLgw9eGB8GUCDxme/2asFE/9Try/Hy0icK+pIM3YMh6+/wi0CConcE3EFowt
iAf3vjhhhxoCe4R7Lli5JIBvr7LNhlqqfxePNzI9E4DZU5srUUfgv85nBpnM
BIjrFtzw4iEV7yKmVR1LgNz2ZHfTxwRWCtZvaylPgDctmQ+MmgkMGA8LOjk/
EUxrOUeUugl0EMh79rs4Eapq73pPUlz/I8mVV5kIOnVvaK/eEch/H6thXJcI
sg8X6iX3EijotLLe4k0ifKqP+PK9n8q/T23dqb+JwH5ive/+ZwKjL91uSjVm
wcQTP7MLX6h8lca6i8xZwGhMMgz+SiAz70tAhC0L7J7ek1T/RiDnt827+R4s
WNWk0ZQ+QmD7um1+kiwW1LyY3XpgnMBBF5XiQ/dZsKFFYa3hBNVf+5pUmwYW
XG7ZKL90kkCJoddL1JpYkPnS/3f9XwI/7ErJD+tgwcFXbde1Zgi8u7NmtnyU
Ba2vRnNEZgkcrb6kc2uCBbtei6X2UWxWkAIXZ1ig/Wan15k5JK5zkL0iuIAN
029LFKeFSNz10+StrRIbmG1PF70VJtFU7o68vSobBto+/i0RIXGiRrxBfzUb
nrUva/OYR+L9E7MG6Xps2N5h0LBtPom83p4QEUM2lHfY3JBdQGJ01nbhA1vY
cLEzOfPZQhID3TPUiZ1sEO8iY/MXkTgy/WlLxm42JHZV+8eJkejomV/qaMEG
3+5fu/UXk6jnE9Zx1JYN3d3iBmJLSDSR2afSTWPD3nerVQcptmp2m5ByZsOm
HleBHAkSTxbtS5ZzZcPYOXdGsiSJbfWeL1e4s6HU2rM9RIpE23YZ13E6Gxjz
fEzcpEn8pJs+y/dmg0atX6mlDImT/upJ6n5s6D9yePlmWRIXPkppiGawIU+P
maImR+J0S1E2P4ANLl+Dx5bKk3jicN87LpMNMvwwtxmK++Xbg5jBbGjdH9n0
RYFE8bSiTZKhbMiQjt7UtozEt5l9csfD2GDeHMt/uJxEJ6PA6ZfhbBBOjl9S
uoLEtD2PWr5FsKEGWDG5iiRe/dV8rDuSDTETSUMpSiQuL/whkXeE0luWYh+m
TGJuoPhhvShKr29azaGVJL6yPpWVTXHpqgytPatIfDHuEfOKYkZX1gUjFRLn
3fym10ex5pnTQhqqJK4kFO4+oPiD5TmmpBqJNYtpy4IpzhPO7p6leN1Wtsc4
lc/lfo7psDrlp+F8njXFMhF5Fe0aJH5WuPctiqqvdT2h3KBJ+RnZ73KEqj9j
iHeibDWJHQobhC0ofWZEwcSlNSRWzXm2YITyQ8jlCj11LYluN1am+4RQeiWu
tYRrkfj89YKyiiBK77PirR7aJGpJX8l7HUjpZZddtl5HYh7DK+HJYTaU/L4V
r6lDoljW0gEtXzb4Fd8ZltKl5qGl9+klLzaoe1c5zdEjcbFsZOgHD0pPe61O
pz6J49ye2W8HKD0n63MfbSDxb7b8oRsubJA2fzzvxkbqfOQ71h5HNpy419SX
ZkgiIVGpJbqXDaahLywjN5F4rUHJTM2Sql+7tZK+mUTNl6ftFEzZEJ3XlrVt
CzWvNVkxqUDVk9CPP7aTeL5au/SEFlWP0cdrXUAix9n7nr8GNV+jg3JPkMR4
Kd9k1VVscKZ/G+HuIHFpatpvVVkq3+4Jru0uErdPCxOMWRYICUwtgt2U3nMr
FdQmqfui8l/kWlMSa2Pziu5S+264RtBGyJzaX/7L/qMfWaAuJj7nlhWJlwvs
oiIbWdD39RVxag81r42axfw6FuQ8zd4RaE1iAHu69OY9FixJUWNr2pCYur/k
ZvJ1Fvydu000x57EIFey408mC5on/MXi95EY0mfWtm8vCyIGGuXNfUl05zF8
5Kn7Uu9h5l11P6q/8VeNCqn7dJig7RP0J/GIVO4N9ZJEcHd9n1vFIPFrH2Pl
dE4iWHZOKK1nkrhI2Ct2YVgiKLdoqEtFUPNjP99EXC0RntxL0uthU/FDbtuL
xiWAT8zXd/k1JKrGFYWsdYyFNilJTlYtieZ5OjtNdsTCrutGbtF1JJ4VYdox
tGNBted4/956Eut7je58EYyFPtAcnHpMnaePfOWVxYCzoOeIzQvK35NFNYpL
YsA8tWfuzDsSbb75D97uiII7q0Tqh3pITNHfKDHwKAo072knveql9jP/UcHK
iigQGY4RvfKexFj7NctfZkRBndWyRfYfSdRQyTw6578oMFrqJH11mPL3ODvx
csURWHvhpYbDFImk4EjsJDcSLjhUrdCdpvY/VaM24GQkiEgXSi76R+JYkHHD
aEIk9J+Mma2dIVH+4akRdY9IuJim0aY9l4fWxfbD29UjYX5c7DHh+TwkkkKu
q5VEwKDn6o8VMjwc+U1mpjwLB3tVqa5MWR6uOyR242F1ONT1z7T4yfEwlJNj
v6g0HPJcX1cpK/DQVlzpQ8OZcHBwjjtzYgUPdS3837cfDIcGyzc76ao8TD0b
2xbyOwx4+gmkpB4PD5ffOaahFQZOV+1k5ujzcDwryXBMMQzEV6qnfqeY6Vr2
p3lpGESJPwtq3MhDO7R2Kx4PBdvPUsZxm3mYMrF5lWR9KAhwLvd+QR7mz/GJ
8nINhYMLWpbXWfNw1Yboi484ISCVQGaV7OXhi0ZamsGZEHg6Hip0yYaH0e8j
z5enhIDBR/nhCDseDn+pbGgOCgGxGo972o48vN5Q03HWJASqwsadsw9S9WnW
iNoOB4P8e8XzzMM8rNTdnaVoEgzNsRWwJ4CHJZw/maRRMCQqmA+tDeThrreJ
p9brBsOwXdjmQSYPHRWMw+iKwXD/0bOuA6E8fL1gT/KmySCgX4tUtojmob14
64340iAojmi9onachwOrFuw2VwsCE/FjVZ18yq+VsyplakzwvHZWtCKfh2eE
JlP2KDLhmHm+bXoB1S9db+dRGSY0Hqsfgss8DCh+qWg1jwl7ZudK5xfxcGxZ
Tmfu20BwHIk7HFjOw6qlnsd+0QPBr/WIolAN1d+l0WJJqQFw8tzheO0uKt6z
Hys8/zDg7zDdTL6bijflJ+/9mQH0nfslhN/xMNhZmhnazQCDEXN+dw8P+YTa
RGkdAzrNNJ+k9fNwzd2q8ZJMBqj+61/85TMPD9bNyN5dy4BbHk6cggke+lZ+
r8v394dunZ33lWT4uMVyfZL5PD8wuf7v3hTFKzf1z4bP+MK11ZV32mT5qKqi
03F1zBdiVmnfzJTnY76YV4rme19YLiV7bXY5H/9V/hSIvusL+8e/ZPeq8FFZ
erQyLMAXuqtPhXF0+fjLrF4ns8sHus37tZSs+Gg/5L+k7Yk3nIhjXxbbw8dJ
2TqfXw+8YWuFuuo0xR8UdIJlbntD7gr/ZR17+VhrFBvNzPeG/SO/5p+25yO7
S4kbkugN3WeFB0X281Hd56dE6TZv6OrTJL778VFh2v5Ea6UXdIYHSt9P4SM/
omnjoRpPSF/1aJ1fDR/njMQ9FlGng/vqS59m/lDvGZ6vO5+5w8Yd7nL6evn4
2D1U9POxQ1DdORIV6puPUp2Rg7ZH3WBn0mFHWn4+evXIHzso5ArDqX6tin35
eLXnHNfV+gCYLdE9+lumAJWqzQW2ftgH/MKPPH/bAuwacO8+E+8CFfc9/n4/
XoByVi1Nz2jOMKjj/sOlpgAdwlN1hC2cQO7mnoNeUwX4d3vwgNBOR5ipFJo5
qleI80dPSmcccgDron9zwvQLcV/YJ4PGAw7AvfRH2H9DIX4qWlMp7OIAOxOH
xBwNCqn782hboq0DpFg0rVhvVIjf3tqEpu90AIme09t6jQuR2X00/oOaA6gJ
qsSCTSH66296nv6VBuG/lyVstC3EMO7Z+F+DNHgyKJW01q4QH159GOMyQAO/
JpF0WRp1vveFpdY7GhSf/ZL7w6kQa5QjN/U202CTZnkVx60QxZrlChLKaXBc
oajm7KFCtPV6fmaqmAadi/j1ae6FuLmMVRteRIPYn2ebIuiF+NzQtpXJp0Hd
3SPd1j6F+KZH4UHIORpIXg/u+8+3EC0vxaaNn6IBneM/sMWvEEPvFWbFZNJA
lH1gWINRiI4Xq3ekptDAKdxhZMVhSv82t+8SSTS46mM9JhlQiGVCm1pyE2gw
5WI6MT+wEL/GEYMaR2lgaWU8PUvx8bJJ/YooGvwP4rD/Pw==
       "]]},
     Annotation[#, "Charting`Private`Tag$4494#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1600, 0.0008963759549629124},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1600, 3000}, {0.0008963759549629124, 0.009999991945472533}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7812203115090284`*^9, 3.781225217682828*^9, 
  3.781225683529689*^9, 3.7812257245399337`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"3abd96ea-1f6b-4c5c-bd09-638e5e61e5a0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Unprotect", "[", 
  RowBox[{"C", ",", "I"}], "]"}]], "Input",
 CellChangeTimes->{{3.781220226229555*^9, 3.781220241261326*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"caab8c5c-2ff2-41e9-a511-719f35571c73"],

Cell[BoxData[
 TemplateBox[{
  "Protect","locked",
   "\"\:7b26\:53f7 \\!\\(\\*RowBox[{\\\"\[ImaginaryI]\\\"}]\\) \:662f\:9501\
\:4f4f\:7684.\"",2,13,28,27746767600226438332,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.781220241778468*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[13]:=",ExpressionUUID->"461c46c0-b140-4575-9bb9-\
cdae74c0b7d1"],

Cell[BoxData[
 RowBox[{"{", "\<\"C\"\>", "}"}]], "Output",
 CellChangeTimes->{3.7812202417824574`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"10c03a53-fec1-4c77-a5ec-992830258aaa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "/", "Pi"}]], "Input",
 CellChangeTimes->{{3.781225420648679*^9, 3.781225421998068*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"8bf3388e-dd85-4916-96fd-6752f8b12360"],

Cell[BoxData[
 FractionBox["2", "\[Pi]"]], "Output",
 CellChangeTimes->{3.781225422859761*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"1594210f-07c1-4ba0-9aae-47e5edff8025"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "/", "Pi"}]], "Input",
 CellChangeTimes->{{3.7812254254670706`*^9, 3.781225434429087*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"7f8d45c3-c4e1-4df4-8699-cebbe997393d"],

Cell[BoxData[
 TemplateBox[{
  "$RecursionLimit","reclim2",
   "\"Recursion depth of \\!\\(\\*RowBox[{\\\"1024\\\"}]\\) exceeded during \
evaluation of \\!\\(\\*SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]\\).\"",2,15,
   10,27747119797025961043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7812254354732947`*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"e0abc330-3273-428d-83e5-cd19a6e06f99"],

Cell[BoxData[
 RowBox[{"Hold", "[", 
  FractionBox["f", "\[Pi]"], "]"}]], "Output",
 CellChangeTimes->{3.7812254354812703`*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"d0d80592-7e33-4c25-ac2d-a0b1c747e273"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"f", ",", "\[Omega]"}], "]"}]], "Input",
 CellChangeTimes->{{3.781225601340364*^9, 3.7812256168012753`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"8e3aa7b0-5563-484b-951e-a299be9a0019"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Omega]", "=", 
  RowBox[{"2", "Pi", " ", "f"}]}]], "Input",
 CellChangeTimes->{{3.7812256189545126`*^9, 3.7812256324503937`*^9}, {
  3.7812257081847057`*^9, 3.781225712144109*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"8b557d16-65d2-400b-a046-8df0d2e0bd7a"],

Cell[BoxData[
 RowBox[{"2", " ", "f", " ", "\[Pi]"}]], "Output",
 CellChangeTimes->{
  3.7812256346515045`*^9, 3.781225713174589*^9, {3.781241663581854*^9, 
   3.78124168361887*^9}},
 CellLabel->
  "Out[113]=",ExpressionUUID->"336022e5-e54a-407c-8f7a-e8eb9bef9569"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"\[Omega]", ",", "f"}], "]"}]], "Input",
 CellChangeTimes->{{3.781241672719042*^9, 3.7812416797791467`*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"fafade8d-2ef0-4120-8cb1-b2216f99ec8b"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.781225650554939*^9, 
  3.781225652570545*^9}},ExpressionUUID->"f7a7ab40-92f4-4c14-96c2-\
e1b4e27a7aca"]
},
WindowSize->{1264, 637},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 552, 11, 118, "Input",ExpressionUUID->"2291c754-f9d8-4946-bbd8-82255b570f54"],
Cell[CellGroupData[{
Cell[1135, 35, 229, 4, 45, "Input",ExpressionUUID->"02c1219b-d7b5-4559-9d04-e3de0357ab3f"],
Cell[1367, 41, 215, 3, 32, "Output",ExpressionUUID->"bbcce4e5-5177-4535-bd84-c3030fa538f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1619, 49, 763, 20, 45, "Input",ExpressionUUID->"38ad87e6-108b-4931-919a-b1ad8ad96889"],
Cell[2385, 71, 271, 6, 46, "Output",ExpressionUUID->"a02d0e7b-aa13-482b-a910-96fd94ab3a29"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2693, 82, 380, 7, 45, "Input",ExpressionUUID->"2bbd0791-3c83-47b5-9d60-a4544cff01a2"],
Cell[3076, 91, 203, 4, 46, "Output",ExpressionUUID->"06e3c865-e0d9-4342-ac23-a9b90047cb36"]
}, Open  ]],
Cell[3294, 98, 188, 3, 28, "Input",ExpressionUUID->"f898b4ba-33a1-4844-af3d-3c98f3161bef"],
Cell[CellGroupData[{
Cell[3507, 105, 322, 7, 45, "Input",ExpressionUUID->"ac300783-5d1e-4fb7-91b7-b8d3336200af"],
Cell[3832, 114, 440, 10, 26, "Message",ExpressionUUID->"36c22c29-c04b-4f1d-a79f-1d78dd3d578d"],
Cell[4275, 126, 260, 6, 57, "Output",ExpressionUUID->"be08ed66-32ff-4a6d-ac76-1178ccc7c726"]
}, Open  ]],
Cell[4550, 135, 181, 2, 28, "Input",ExpressionUUID->"7f17d635-79df-475d-9fa3-54dcdb0bdb89"],
Cell[CellGroupData[{
Cell[4756, 141, 214, 3, 45, "Input",ExpressionUUID->"1644e463-0db4-4645-a1c8-6726854d0769"],
Cell[4973, 146, 290, 5, 32, "Output",ExpressionUUID->"dd4e838a-1f3e-4b06-b980-9ab07ad7528f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5300, 156, 181, 2, 28, "Input",ExpressionUUID->"fd37f27b-1bf0-409d-b2dd-39293f2c04af"],
Cell[5484, 160, 474, 10, 26, "Message",ExpressionUUID->"4474253f-bc12-4693-ba1e-1a0882fc3301"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5995, 175, 180, 2, 28, "Input",ExpressionUUID->"9c141f6c-c3b8-492a-a6e5-6999bc4bcb56"],
Cell[6178, 179, 181, 2, 32, "Output",ExpressionUUID->"b9de0289-341a-47f0-a9b0-c9464bf7818a"]
}, Open  ]],
Cell[6374, 184, 212, 3, 45, "Input",ExpressionUUID->"c07a5ea9-25d5-463d-b86a-13210abe812b"],
Cell[CellGroupData[{
Cell[6611, 191, 345, 8, 45, "Input",ExpressionUUID->"d819a932-3cd6-4436-bfab-9510af0418f5"],
Cell[6959, 201, 541, 12, 26, "Message",ExpressionUUID->"96b4fb0a-db65-47d8-bd82-7a720ba76ced"],
Cell[7503, 215, 354, 8, 57, "Output",ExpressionUUID->"c62c94b7-5afb-47d5-ad28-6958bfdc7319"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7894, 228, 236, 5, 48, "Input",ExpressionUUID->"425d274b-b8b4-4a7b-96c0-4d896cc76483"],
Cell[8133, 235, 238, 5, 35, "Output",ExpressionUUID->"94352f58-5f61-41f8-85a6-2ae08058c466"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8408, 245, 215, 4, 45, "Input",ExpressionUUID->"20dd2969-f0b8-4d74-abbf-2820a118a800"],
Cell[8626, 251, 207, 4, 32, "Output",ExpressionUUID->"75fa7e85-3a66-40b3-a04f-2d174cab8587"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8870, 260, 517, 13, 45, "Input",ExpressionUUID->"59aa306a-6cc2-4613-a53f-d4c7f1ad0b83"],
Cell[9390, 275, 339, 6, 32, "Output",ExpressionUUID->"3fba465a-dc9e-416a-9a9f-ad2f9f4181ad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9766, 286, 573, 17, 45, "Input",ExpressionUUID->"2a6deb15-2e34-4c54-8691-bd1d0d8ba502"],
Cell[10342, 305, 535, 14, 86, "Output",ExpressionUUID->"c14ffe79-4a56-47ae-86af-c34480e5d5ad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10914, 324, 396, 8, 45, "Input",ExpressionUUID->"1ea3ff0d-571f-4042-aebc-f249e952cb38"],
Cell[11313, 334, 8025, 148, 228, "Output",ExpressionUUID->"3abd96ea-1f6b-4c5c-bd09-638e5e61e5a0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19375, 487, 230, 4, 45, "Input",ExpressionUUID->"caab8c5c-2ff2-41e9-a511-719f35571c73"],
Cell[19608, 493, 374, 9, 24, "Message",ExpressionUUID->"461c46c0-b140-4575-9bb9-cdae74c0b7d1"],
Cell[19985, 504, 181, 3, 32, "Output",ExpressionUUID->"10c03a53-fec1-4c77-a5ec-992830258aaa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20203, 512, 195, 3, 45, "Input",ExpressionUUID->"8bf3388e-dd85-4916-96fd-6752f8b12360"],
Cell[20401, 517, 173, 3, 56, "Output",ExpressionUUID->"1594210f-07c1-4ba0-9aae-47e5edff8025"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20611, 525, 197, 3, 45, "Input",ExpressionUUID->"7f8d45c3-c4e1-4df4-8699-cebbe997393d"],
Cell[20811, 530, 441, 10, 26, "Message",ExpressionUUID->"e0abc330-3273-428d-83e5-cd19a6e06f99"],
Cell[21255, 542, 206, 4, 57, "Output",ExpressionUUID->"d0d80592-7e33-4c25-ac2d-a0b1c747e273"]
}, Open  ]],
Cell[21476, 549, 235, 4, 45, "Input",ExpressionUUID->"8e3aa7b0-5563-484b-951e-a299be9a0019"],
Cell[CellGroupData[{
Cell[21736, 557, 289, 6, 45, "Input",ExpressionUUID->"8b557d16-65d2-400b-a046-8df0d2e0bd7a"],
Cell[22028, 565, 265, 6, 32, "Output",ExpressionUUID->"336022e5-e54a-407c-8f7a-e8eb9bef9569"]
}, Open  ]],
Cell[22308, 574, 239, 5, 45, "Input",ExpressionUUID->"fafade8d-2ef0-4120-8cb1-b2216f99ec8b"],
Cell[22550, 581, 152, 3, 28, "Input",ExpressionUUID->"f7a7ab40-92f4-4c14-96c2-e1b4e27a7aca"]
}
]
*)

